home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideo Library / stack.txt < prev   
Text File  |  1991-03-04  |  20KB  |  703 lines
  1. -- stack: in
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 897375813
  5. -- maximum user level: 4 (authoring)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 5
  11. -- first background id: 6520
  12. -- card count: 5
  13. -- first card id: 7498
  14. -- list block id: 2062
  15. -- print block id: 2373
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 0
  19. -- free size: 0 bytes
  20. -- total size: 111456 bytes
  21. -- stack block size: 19456 bytes
  22. -- created by hypercard version: 0x01208000
  23. -- compacted by hypercard version: 0x01258000
  24. -- modified by hypercard version: 0x01258000
  25. -- opened by hypercard version: 0x01258000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xBB11EE44BB11EE44
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x1082108210821082
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xFF55FFAAFF55FFAA
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0x80FF80FF80FF80FF
  56. -- patterns[30]: 0xFF88FF88FF88FF88
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. on openStack
  69.   hide menubar
  70.   if the userLevel < 4 then set userLevel to 4
  71. end openStack
  72.  
  73.  
  74. on chooseYear
  75.   put "1990,1999,1998,1997,1996,1995,1994,1993,1992,1991,;" & "1980,1989,1987,1986,1985,1984,1983,1982,1981,;" & "1970,1979,1978,1977,1976,1975,1974,1973,1972,1971,;" & "1960,1969,1968,1967,1966,1965,1964,1963,1962,1961,;" & "1950,1959,1958,1957,1956,1955,1954,1953,1952,1951,;" & "1940,1949,1948,1947,1946,1945,1944,1943,1942,1941,;" & "1930,1939,1938,1937,1936,1935,1934,1933,1932,1931,;" & "1920,1929,1928,1927,1926,1925,1924,1923,1922,1921,;" & "Other;" into choices
  76.  
  77.   put the value of 1 into lastItem
  78.   get topLeft of target
  79.  
  80.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  81.  
  82.   if item 1 of it is "Other" then
  83.     ask "Enter Year"
  84.     if it is not empty then
  85.       put it into bkgnd field "year"
  86.     end if
  87.   else
  88.     if item 2 of it is not empty
  89.     then put item 2 of it into bkgnd fld "year"
  90.   else
  91.     if item 1 of it is not empty
  92.     then put item 1 of it into field "year"
  93.   end if
  94. end if
  95. end chooseYear
  96.  
  97. on fieldMsg
  98.   answer "This is a data entry field."
  99. end fieldMsg
  100.  
  101. on doPlay
  102.   get name of background
  103.   put last word of it into bname
  104.   Answer "Play through which cards?" with "cancel" or "All cards" or bname
  105.   if it is "All cards" then show all cards
  106.   else
  107.     put id of this card into start
  108.     put empty into new
  109.     repeat until start = new
  110.       go to next card of this background
  111.       put id of this card into new
  112.       wait 10 ticks
  113.       if the mouseClick then exit repeat
  114.     end repeat
  115.   end if
  116. end doPlay
  117.  
  118. on doPrint
  119.   answer "Print Which?" with "Report..." or "Stack..." or "Card"
  120.   get it
  121.   doMenu ("Print " & it)
  122. end doPrint
  123.  
  124. on doReset
  125.   global Pnum
  126.   lock screen
  127.   doShowSortFields
  128.   repeat with j = 1 to 6
  129.     put empty into cd field ("P" & j)
  130.   end repeat
  131.   doShowSortButtons
  132.   unlock screen
  133.   put empty into Pnum
  134. end doReset
  135.  
  136. on doShowSortButtons
  137.   show button "set artist"
  138.   show button "set title"
  139.   show button "set content class"
  140.   show button "set catalog number"
  141.   show button "set recording label"
  142.   show button "set year"
  143.   show button "set format"
  144. end doShowSortButtons
  145.  
  146. global ThisKey
  147.  
  148. on doSetArtist
  149.   global ThisKey
  150.   lock screen
  151.   get cd field "P6"
  152.   if it is not empty then
  153.     exit doSetArtist
  154.   end if
  155.   put "artist" into ThisKey
  156.   doCheckP
  157.   hide button "set artist"
  158.   unlock screen
  159. end doSetArtist
  160.  
  161. on doSetTitle
  162.   global ThisKey
  163.   lock screen
  164.   get cd field "P6"
  165.   if it is not empty then
  166.     exit doSetTitle
  167.   end if
  168.   put "title" into ThisKey
  169.   doCheckP
  170.   hide button "set title"
  171.   unlock screen
  172. end doSetTitle
  173.  
  174. on doSetFormat
  175.   global ThisKey
  176.   lock screen
  177.   get cd field "P6"
  178.   if it is not empty then
  179.     exit doSetFormat
  180.   end if
  181.   put "format" into ThisKey
  182.   doCheckP
  183.   hide button "set format"
  184.   unlock screen
  185. end doSetFormat
  186.  
  187. on doSetContentClass
  188.   global ThisKey
  189.   lock screen
  190.   get cd field "P6"
  191.   if it is not empty then
  192.     exit doSetContentClass
  193.   end if
  194.   put "content class" into ThisKey
  195.   doCheckP
  196.   hide button "set content class"
  197.   unlock screen
  198. end doSetContentClass
  199.  
  200. on doSetRecordingLabel
  201.   global ThisKey
  202.   lock screen
  203.   get cd field "P6"
  204.   if it is not empty then
  205.     exit doSetRecordingLabel
  206.   end if
  207.   put "recording label" into ThisKey
  208.   doCheckP
  209.   hide button "set recording label"
  210.   unlock screen
  211. end doSetRecordingLabel
  212.  
  213. on doSetCatalogNumber
  214.   global ThisKey
  215.   lock screen
  216.   get cd field "P6"
  217.   if it is not empty then
  218.     exit doSetCatalogNumber
  219.   end if
  220.   put "catalog number" into ThisKey
  221.   doCheckP
  222.   hide button "set catalog number"
  223.   unlock screen
  224. end doSetCatalogNumber
  225.  
  226. on doSetYear
  227.   global ThisKey
  228.   lock screen
  229.   get cd field "P6"
  230.   if it is not empty then
  231.     exit doSetYear
  232.   end if
  233.   put "year" into ThisKey
  234.   doCheckP
  235.   hide button "set year"
  236.   unlock screen
  237. end doSetYear
  238.  
  239. on doCheckP
  240.   global ThisKey,Pnum
  241.   add 1 to Pnum
  242.   if the value of Pnum < 7
  243.   then put ThisKey into cd field ("P" & Pnum)
  244. end doCheckP
  245.  
  246.  
  247.  
  248. on doSearch
  249.   global check
  250.   ask "Search for what keyword?" with check
  251.   put it into check
  252.   find string check
  253. end doSearch
  254.  
  255.  
  256. on doSortNow
  257.   lock screen
  258.   repeat with j = 1 to 6
  259.     if cd field ("P" & j) is empty then
  260.       answer "Six keys must be selected to sort"
  261.       unlock screen
  262.       exit doSortNow
  263.     end if
  264.   end repeat
  265.   put cd field "P1" into fldOne
  266.   put cd field "P2" into fldTwo
  267.   put cd field "P3" into fldThree
  268.   put cd field "P4" into fldFour
  269.   put cd field "P5" into fldFive
  270.   put cd field "P6" into fldSix
  271.   unlock screen
  272.   if fldOne contains "artist" then
  273.     sort by last word of first line of field fldOne & field fldTwo & field fldThree & field fldFour & field fldFive & field fldSix
  274.     lock screen
  275.     doSortClose
  276.     exit doSortNow
  277.   end if
  278.   if fldTwo contains "artist" then
  279.     sort by field fldOne & last word of first line of field fldTwo & field fldThree & field fldFour & field fldFive & field fldSix
  280.     lock screen
  281.     doSortClose
  282.     exit doSortNow
  283.   end if
  284.   if fldThree contains "artist" then
  285.     sort by field fldOne & field fldTwo & last word of line 1 of field fldThree & field fldFour & field fldFive & field fldSix
  286.     lock screen
  287.     doSortClose
  288.     exit doSortNow
  289.   end if
  290.   if fldFour contains "artist" then
  291.     sort by field fldOne & field fldTwo & field fldThree & last word of line 1 of field fldFour & field fldFive & field fldSix
  292.     lock screen
  293.     doSortClose
  294.     exit doSortNow
  295.   end if
  296.   if fldFive contains "artist" then
  297.     sort by field fldOne & field fldTwo & field fldThree & field fldFour & last word of line 1 of field fldFive & field fldSix
  298.     lock screen
  299.     doSortClose
  300.     exit doSortNow
  301.   end if
  302.   if fldSix contains "artist" then
  303.     sort by field fldOne & field fldTwo & field fldThree & field fldFour & field fldFive & last word of line 1 of field fldSix
  304.     lock screen
  305.     doSortClose
  306.     exit doSortNow
  307.   end if
  308.   sort by field fldOne & field fldTwo & field fldThree & field fldFour & field fldFive & field fldSix
  309.   lock screen
  310.   doSortClose
  311.   unlock screen
  312. end doSortNow
  313.  
  314.  
  315. on doSortClose
  316.   global Pnum
  317.   repeat with j = 1 to 6
  318.     if cd field ("P" & j) is empty then
  319.       repeat with k = 1 to j
  320.         put empty into cd field ("P" & k)
  321.       end repeat
  322.       put empty into Pnum
  323.     end if
  324.   end repeat
  325.   doHideSortFields
  326.   hide button "set artist"
  327.   hide button "set title"
  328.   hide button "set content class"
  329.   hide button "set catalog number"
  330.   hide button "set recording label"
  331.   hide button "set year"
  332.   hide button "set format"
  333.   hide button "Reset"
  334.   hide button "Sort Now"
  335.   hide button "Cancel"
  336.   hide cd field "SORTING OPTIONS"
  337.   pop card
  338. end doSortClose
  339.  
  340.  
  341. on doDelete
  342.   answer "Are you sure you want to delete this card?" with "cancel" or "delete"
  343.   if it is "delete" then
  344.     visual effect wipe down to black
  345.     doMenu delete card
  346.   end if
  347. end doDelete
  348.  
  349.  
  350.  
  351. on doRecLabel
  352.   put "Other;A,A&M,Archiv,Arista,Atlantic,;C,Capitol,Chandos,Chrysalis," & "Columbia,Concord,;D,Delos,Denon,Deutsche Grammophon,DRM,;E,ECM," & "Elektra,EMI-Angel,Epic,Erato,;G,Geffen,GRP,;H,Harmonia Mundi," & "Hyperion,;I,Intima-Enigma,Island,;L,L'Oiseau-Lyre,London,Legato,;" & "M,MCA,Motown,Muse,;N,New World,Newport Classics,;P,Philips," & "Pro Arte,;R,RCA,Rhino,;S,Sire,;T,Telarc,;V,Vanguard,Virgin,;W,Warner" into choices
  353.  
  354.   put the value of 1 into lastItem
  355.   get topLeft of target
  356.  
  357.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  358.  
  359.   if item 1 of it is "Other" then
  360.     ask "Enter Recording Label"
  361.     if it is not empty then
  362.       put it into bkgnd field "recording label"
  363.     end if
  364.   else
  365.     if item 2 of it is not empty
  366.     then put item 2 of it into bkgnd fld "recording label"
  367.   end if
  368. end doRecLabel
  369.  
  370.  
  371. on doSort
  372.   lock screen
  373.   show cd field "SORTING OPTIONS"
  374.   doShowSortButtons
  375.   doShowSortFields
  376.   show button "Reset"
  377.   show button "Sort Now"
  378.   show button "Cancel"
  379.   unlock screen
  380. end doSort
  381.  
  382. on doShowSortFields
  383.   show cd field "P1"
  384.   show cd field "P2"
  385.   show cd field "P3"
  386.   show cd field "P4"
  387.   show cd field "P5"
  388.   show cd field "P6"
  389. end doShowSortFields
  390.  
  391. on doHideSortFields
  392.   hide cd field "P1"
  393.   hide cd field "P2"
  394.   hide cd field "P3"
  395.   hide cd field "P4"
  396.   hide cd field "P5"
  397.   hide cd field "P6"
  398. end doHideSortFields
  399.  
  400. on doPower
  401.   visual effect iris close to black
  402.   answer "POWER off.  Exit to which?" with "Cancel" or "Home" or "Finder"
  403.   if it is not "Cancel" then
  404.     if it is "Home" then doMenu it
  405.     else doMenu quit HyperCard
  406.   else answer "POWER on"
  407. end doPower
  408.  
  409. on startUp
  410.   hide menubar
  411. end startUp
  412.  
  413.  
  414. on setVideo1
  415.   if the hilite of bkgnd button "Vol I" is false then
  416.     set the hilite of bkgnd button "Vol I" to true
  417.     set the hilite of bkgnd button "Vol II" to false
  418.     set the hilite of bkgnd button "Vol III" to false
  419.     show bkgnd field "title"
  420.     hide bkgnd field "IItitles"
  421.     hide bkgnd field "IIItitles"
  422.   end if
  423. end setVideo1
  424.  
  425. on setVideo2
  426.   if bkgnd field "numVol" contains "1" then
  427.     hide bkgnd field "IItitles"
  428.     hide bkgnd field "IIItitles"
  429.   else
  430.     if the hilite of bkgnd button "Vol II" is false then
  431.       set the hilite of bkgnd button "Vol II" to true
  432.       set the hilite of bkgnd button "Vol I" to false
  433.       set the hilite of bkgnd button "Vol III" to false
  434.       hide bkgnd field "title"
  435.       show bkgnd field "IItitles"
  436.       hide bkgnd field "IIItitles"
  437.     end if
  438.   end if
  439. end setVideo2
  440.  
  441. on setVideo3
  442.   if bkgnd field "numVol" contains "3" then
  443.     if the hilite of bkgnd button "Vol III" is false then
  444.       set the hilite of bkgnd button "Vol III" to true
  445.       set the hilite of bkgnd button "Vol II" to false
  446.       set the hilite of bkgnd button "Vol I" to false
  447.       hide bkgnd field "title"
  448.       hide bkgnd field "IItitles"
  449.       show bkgnd field "IIItitles"
  450.     end if
  451.   else
  452.     hide bkgnd field "IIItitles"
  453.   end if
  454. end setVideo3
  455.  
  456. on setTape1
  457.   if the hilite of bkgnd button "Vol I" is false then
  458.     set the hilite of bkgnd button "Vol I" to true
  459.     set the hilite of bkgnd button "Vol II" to false
  460.     set the hilite of bkgnd button "Vol III" to false
  461.     show bkgnd field "IA"
  462.     show bkgnd field "title"
  463.     show bkgnd field "IAperf"
  464.     show bkgnd field "artist"
  465.     show bkgnd field "IB"
  466.     show bkgnd field "IBtitle"
  467.     show bkgnd field "IBperf"
  468.     show bkgnd field "IBartist"
  469.     hide bkgnd field "IIA"
  470.     hide bkgnd field "IIAtitle"
  471.     hide bkgnd field "IIAartist"
  472.     hide bkgnd field "IIAperf"
  473.     hide bkgnd field "IIB"
  474.     hide bkgnd field "IIBtitle"
  475.     hide bkgnd field "IIBartist"
  476.     hide bkgnd field "IIIA"
  477.     hide bkgnd field "IIIAtitle"
  478.     hide bkgnd field "IIIAartist"
  479.     hide bkgnd field "IIIAperf"
  480.     hide bkgnd field "IIIB"
  481.     hide bkgnd field "IIIBtitle"
  482.     hide bkgnd field "IIIBartist"
  483.     hide bkgnd field "IIIBperf"
  484.   end if
  485. end setTape1
  486.  
  487. on setTape2
  488.   if bkgnd field "numVol" contains "1" then
  489.     set the hilite of bkgnd button "Vol II" to false
  490.     set the hilite of bkgnd button "Vol III" to false
  491.   else
  492.     if the hilite of bkgnd button "Vol II" is false then
  493.       set the hilite of bkgnd button "Vol II" to true
  494.       set the hilite of bkgnd button "Vol I" to false
  495.       set the hilite of bkgnd button "Vol III" to false
  496.       hide bkgnd field "IA"
  497.       hide bkgnd field "title"
  498.       hide bkgnd field "IAperf"
  499.       hide bkgnd field "artist"
  500.       hide bkgnd field "IB"
  501.       hide bkgnd field "IBtitle"
  502.       hide bkgnd field "IBartist"
  503.       hide bkgnd field "IBperf"
  504.       show bkgnd field "IIA"
  505.       show bkgnd field "IIAtitle"
  506.       show bkgnd field "IIAartist"
  507.       show bkgnd field "IIAperf"
  508.       show bkgnd field "IIB"
  509.       show bkgnd field "IIBtitle"
  510.       show bkgnd field "IIBartist"
  511.       show bkgnd field "IIBperf"
  512.       hide bkgnd field "IIIA"
  513.       hide bkgnd field "IIIAtitle"
  514.       hide bkgnd field "IIIAartist"
  515.       hide bkgnd field "IIIAperf"
  516.       hide bkgnd field "IIIB"
  517.       hide bkgnd field "IIIBtitle"
  518.       hide bkgnd field "IIIBartist"
  519.       hide bkgnd field "IIIBperf"
  520.     end if
  521.   end if
  522. end setTape2
  523.  
  524. on setCD1
  525.   if the hilite of bkgnd button "Vol I" is false then
  526.     set the hilite of bkgnd button "Vol I" to true
  527.     set the hilite of bkgnd button "Vol II" to false
  528.     set the hilite of bkgnd button "Vol III" to false
  529.     show bkgnd field "Isel"
  530.     show bkgnd field "title"
  531.     show bkgnd field "Iperf"
  532.     show bkgnd field "artist"
  533.     hide bkgnd field "IIsel"
  534.     hide bkgnd field "IItitle"
  535.     hide bkgnd field "IIartist"
  536.     hide bkgnd field "IIperf"
  537.     hide bkgnd field "IIIsel"
  538.     hide bkgnd field "IIItitle"
  539.     hide bkgnd field "IIIartist"
  540.     hide bkgnd field "IIIperf"
  541.   end if
  542. end setCD1
  543.  
  544. on setCD2
  545.   if bkgnd field "numVol" contains "1" then
  546.     set the hilite of bkgnd button "Vol I" to true
  547.     set the hilite of bkgnd button "Vol II" to false
  548.     set the hilite of bkgnd button "Vol III" to false
  549.     show bkgnd field "Isel"
  550.     show bkgnd field "title"
  551.     show bkgnd field "Iperf"
  552.     show bkgnd field "artist"
  553.     hide bkgnd field "IIsel"
  554.     hide bkgnd field "IItitle"
  555.     hide bkgnd field "IIartist"
  556.     hide bkgnd field "IIperf"
  557.     hide bkgnd field "IIIsel"
  558.     hide bkgnd field "IIItitle"
  559.     hide bkgnd field "IIIartist"
  560.     hide bkgnd field "IIIperf"
  561.   else
  562.     if the hilite of bkgnd button "Vol II" is false then
  563.       set the hilite of bkgnd button "Vol II" to true
  564.       set the hilite of bkgnd button "Vol I" to false
  565.       set the hilite of bkgnd button "Vol III" to false
  566.       hide bkgnd field "Isel"
  567.       hide bkgnd field "title"
  568.       hide bkgnd field "Iperf"
  569.       hide bkgnd field "artist"
  570.       show bkgnd field "IIsel"
  571.       show bkgnd field "IItitle"
  572.       show bkgnd field "IIartist"
  573.       show bkgnd field "IIperf"
  574.       hide bkgnd field "IIIsel"
  575.       hide bkgnd field "IIItitle"
  576.       hide bkgnd field "IIIartist"
  577.       hide bkgnd field "IIIperf"
  578.     end if
  579.   end if
  580. end setCD2
  581.  
  582. on setLP1
  583.   if the hilite of bkgnd button "Vol I" is false then
  584.     set the hilite of bkgnd button "Vol I" to true
  585.     set the hilite of bkgnd button "Vol II" to false
  586.     set the hilite of bkgnd button "Vol III" to false
  587.     show bkgnd field "IAsel"
  588.     show bkgnd field "title"
  589.     show bkgnd field "Iperf"
  590.     show bkgnd field "artist"
  591.     show bkgnd field "IBsel"
  592.     hide bkgnd field "IIAsel"
  593.     hide bkgnd field "IItitle"
  594.     hide bkgnd field "IIartist"
  595.     hide bkgnd field "IIperf"
  596.     hide bkgnd field "IIBsel"
  597.     hide bkgnd field "IIIAsel"
  598.     hide bkgnd field "IIItitle"
  599.     hide bkgnd field "IIIartist"
  600.     hide bkgnd field "IIIperf"
  601.     hide bkgnd field "IIIBsel"
  602.   end if
  603. end setLP1
  604.  
  605. on setLP2
  606.   if bkgnd field "numVol" contains "1" then
  607.     set the hilite of bkgnd button "Vol I" to true
  608.     set the hilite of bkgnd button "Vol II" to false
  609.     set the hilite of bkgnd button "Vol III" to false
  610.     show bkgnd field "IAsel"
  611.     show bkgnd field "title"
  612.     show bkgnd field "Iperf"
  613.     show bkgnd field "artist"
  614.     show bkgnd field "IBsel"
  615.     hide bkgnd field "IIAsel"
  616.     hide bkgnd field "IItitle"
  617.     hide bkgnd field "IIartist"
  618.     hide bkgnd field "IIperf"
  619.     hide bkgnd field "IIBsel"
  620.     hide bkgnd field "IIIAsel"
  621.     hide bkgnd field "IIItitle"
  622.     hide bkgnd field "IIIartist"
  623.     hide bkgnd field "IIIperf"
  624.     hide bkgnd field "IIIBsel"
  625.   else
  626.     if the hilite of bkgnd button "Vol II" is false then
  627.       set the hilite of bkgnd button "Vol II" to true
  628.       set the hilite of bkgnd button "Vol I" to false
  629.       set the hilite of bkgnd button "Vol III" to false
  630.       hide bkgnd field "IAsel"
  631.       hide bkgnd field "title"
  632.       hide bkgnd field "Iperf"
  633.       hide bkgnd field "artist"
  634.       hide bkgnd field "IBsel"
  635.       show bkgnd field "IIAsel"
  636.       show bkgnd field "IItitle"
  637.       show bkgnd field "IIartist"
  638.       show bkgnd field "IIperf"
  639.       show bkgnd field "IIBsel"
  640.       hide bkgnd field "IIIAsel"
  641.       hide bkgnd field "IIItitle"
  642.       hide bkgnd field "IIIartist"
  643.       hide bkgnd field "IIIperf"
  644.       hide bkgnd field "IIIBsel"
  645.     end if
  646.   end if
  647. end setLP2
  648.  
  649. on goNext
  650.   visual effect dissolve very fast
  651.   go to next card of this background
  652. end goNext
  653.  
  654. on goPrev
  655.   visual effect dissolve very fast
  656.   go to prev card of this background
  657. end goPrev
  658.  
  659. on goTape
  660.   visual effect barn door open fast
  661.   go to any card of background "Tape"
  662. end goTape
  663.  
  664. on goVideo
  665.   visual effect barn door open fast
  666.   go to any card of background "Video"
  667. end goVideo
  668.  
  669. on goCD
  670.   visual effect barn door open fast
  671.   go to any card of background "CD"
  672. end goCD
  673.  
  674. on goLP
  675.   visual effect barn door open fast
  676.   go to any card of background "LP"
  677. end goLP
  678.  
  679. on doContentClass
  680.   put "Big Band;Classical,Ancient,Baroque,Classical,Romantic," & "20th Century,Collection;" & "Country - Western;International;Jazz;New Age;Popular;" & "Rap;Rock,50's,60's,70's,80's,90's,Acid,Alternative,Folk," & "Grateful Dead,Heavy Metal,Progressive,Punk,;" & "Rythym and Blues;Soul;Soundtrack;Vocal;Other;" into choices
  681.  
  682.   put the value of 1 into lastItem
  683.   get topLeft of target
  684.  
  685.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  686.  
  687.  
  688.   if item 1 of it is not empty then
  689.     put item 1 of it into bkgnd fld "content class"
  690.     if item 1 of it is "Classical"
  691.     then put (item 1 of it && item 2 of it) into field "content class"
  692.     if item 1 of it is "Rock"
  693.     then put (item 1 of it & "-" & item 2 of it) into field "content class"
  694.     if item 1 of it is "Other" then
  695.       ask "Enter Music Class"
  696.       if it is not empty
  697.       then put it into bkgnd fld "content class"
  698.     end if
  699.   end if
  700. end doContentClass
  701.  
  702.  
  703.